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‘File: LABIOSTAT.FOR 
Version ‘'V04-000' 


SERRA EERE REE ARERR EAE EAE EERE AREER EEE EEE EEE ARTES 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. 
' ALL RIGHTS RESERVED. 


1* na? SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND eoraee 
1* sg Y IN ACCORDANCE WITH THE TERMS OF SUCH Tits sg iad 4 


ie He oot IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
't CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IC 
EN 


® 
* 
® 
® 
® 
® 
* 
® 
: * 
ie TRANSFERRED. . 
® 
® 
* 
® 
* 
a 
® 
® 
* 
® 


Lee RRR AREA EERE EERE RARER ARERR AAA EEE 
' 


Program ,Asi0.. STATUS 
This is a utilit rout ine for the LABIO system. It a ++ yee 
the status of al hannels of the A/D. It assumes th 
the terminal is a v5 or an equivalent, e.g VT100 in vise mode. 
The display is update once every 1-9 seconds. Default is 
one second. There are 5 commands associated with the program 


display status of 16 channels 

display status by process PID 

peel er help frame (timeouts after 1 min.) 
Exit to VMS DCL 

EC1=9) “change cycle time. 


The key pad can also be used to enter commands. The special function 
Keys on the VT52 or VT100 correspond to the first 4 commands (3 on VT52). 


uv 
ene 


Typing ANY key will cause a display refresh. 


Include ‘LABCHNDEF .FOR‘ 


Character*10 BrATUStSe 
Character*8 XTIME 

Character ae me 

Parameter COMMAND = 4 

Character! COMRARD. COMMAND TABLE (COMMAND _MAX,2) ,ESCAPE, TERMINATOR 
Charactert63 COMMAND _D 


External SS$_NOTRAN,SS$_NORMAL ,SS$_PARTESCAPE 
External I0$A_ CVTLOW, 10SM _NOECHO, IOSM_TIMED, 10$_READVBLK, 1O$M_PURGE 


LABIOSTAT.FOR;1 


Logical SUCCESS 
Integer Der eri 


»SYS$ 
PLAY Vat AG, OLD DISPLAY, COMMAND _CHAN 
gree” Ek Pee i NE T 


TIME 
ERAS n(2) HORE(2> ERASE LINE (2) ,VT52_MODE (7) 

Integers 10 maT tittese eae 

Equivalence CESCAPE,HOME), tena CouNT, 10_STATUS(2)) 


QIOW, SYSSASSIGN 


VT52 control ESCAPE Sequences 


Data, HOME ERASE, SCREEN ERASE SLINE 


! VT100 control ESCAPE sequences 
' This ESC seq places a V 


100 in VT52 mode 
Data VT52_MODE/'33'0,'C*,'?", "2°, '°L",'33'0,']'/ 


Data STATUS/' Unknown . > Inactive’, . Active op hes 
Data COMMAND _TABLE/'C', tpho tg ege epey 
Data DISPLAY. FLAG, ERASE _FLAG rn ae 

Data DEF_TIME_OUT 


Map to the GLOBAL DATA section created by the 1/0 program 
Call LABIO_INIT(O) 

Place VT100's in VT52 mode 
Type 500, VT52_MODE 


Initialize Command input channel 

We will read the command via a Q10W with a 1 sec timeout 
Commands are single character, to simplify matters we will 
read with no echo and convert lower to upper case. 


Call SYSSASSIGN( ‘TT*, COMMAND 

QIO_READ = XLoc(10$M_NOECHO) ; etoe (LOS. CVTLOW) + ZLoc(1O$M_TIMED) 
1 +"ZLoc (10$_READVBL 

TT_PURGE = toe (10$h PURGE) 

Go" To 3 ! Display Something 


i Get a command from the user, but gnly wait a short time (TIME_OUT) 


' so we can update the screen. The 


nput buffer is purged if a Command 


' 
' 
' 
was decode on the last read. (Prevents unnecessary erase loops) 
20 DISPLAY FLAG = OLD DISPLAY !Default is last display 


TIME_OUT = DEF_TIME_OUT Default time out 
| 21 TABLE_INDEX = 1 ‘Assume no escape sequence 
22 Call SYS$Q1OW(, ZVal (COMMAND CHAN) ,%Val (Q10_READ+PURGE ) 


1105S STATUS, ,,£Ref (COMMAND) > Wal (1), Xval (TIME_OUT),,.,5 
PURGE = 0 
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' If escape seq. pet Bs ony ae — pointer to second table and 
i get character following e 


ERMINATOR = aT io. TATUS(3) ) 

1f( TERMIN ATOR -ne. ESCAPE ) Go To 23 
TABLE_INDEX = 2 
Go To 22 'Get char following escape 


I1f( CHAR 15" NT .ne. 0) Then ! Char count not 0 


23 
' Check for cher - 
I1f( COMMAN 9°: ‘O" .and. COMMAND le, "9" ) Then 
DEF OF IME an Ichar ( COMMAND ) = Ichar( ‘O° ) 
' Not 1-9 ey. a command. 


cag . ws = ,true ! Screen erase 
Do 24 1 = , COMMAND MAX 
If ¢ COMMAND .eq. CORMAND _TABLE(I,TABLE_INDEX)) DISPLAY_FLAG = I 
24 Cont inue 
End If 
. ange = TT_PURGE ‘Purge the input buffer next time 
n 


' 
Get date and time, then dispatch to display routine 


25 Call DATE (XDATE) 
Call TIME (XTIME) 


Go to (50,60,99,40) DISPLAY_FLAG 
Refresh the screen (Erase and Redisplay) 
30 DISPLAY FLAG = OLD_DISPLAY 'Redisplay last display 


AG = .true. 
' Go To 25 
! Display the HELP frame, set the temporary time-out to 1 minute 
40 T pe 600, HOME, ERASE_SCREEN ‘Display the help frame 
TIME OUT 0 ive the user 1 minute to read it 
DISPCAY FLAG = OLD_DISPLAY ‘when it times out, default old 
ERASE_FCAG = .true. 
Go To 5 
; Generate the Status Line for each A/D channel 
50 If ( ERASE_FLAG ) Tye 300, HOME, ERASE_SCREEN 
chRiwet tou ROME » A XDATE 
nett ANNEL MAX AD. “ee 
1¥%¢ oN 8 Ock(2*c ate 0) The '] 


f allocated, display info 
Type,e CHANNEL, STATUS CAD "BLOCK (1, CHANNEL) +1), 
1 : BLOCK(J, CHANNEL ) J= 
HARNEL _COUNT = CHANNEL _ COUNT + 1 
'If not allocated, say so 


= 
nee 900, CHANNEL, *<Unused>* ,ERASE_LINE 
51 Ke 


rc 
wv 


ee*et eet ee eevee eeeeeeaeaeenene 
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C 
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Do 53 PID. INDEX = 1, MAX_PID 
PID = CONNECT BLOCK(PID._INDEX,1) 
( PID .ne.~0 ) PID_COUNT = PID_COUNT + 1 
52 Continue 


alos tt ERASE LINE, PID COUNT, CHANNEL_COUNT 
y = BIsPL AY_FLAG 

ALAC. = .felse. ~ 
og: Ee 


} Status display via process (PID) 
60 If ¢ ERASE FLAG ) Type 300, HOME,ERASE_SCREEN 


hs ROME, xTIN »XDATE 

P count = = 0 ' Number of connected processess 

apo COUNT = 0 i Number of allocated channels 
Do 61 PYD_INDEX = 1 

PID = CONRECT “BLOcK(PID. XINDEX, 1) 


( PID 
PID_COUNT = = PID COUNT” + 1 
OLD-COUNT = CHANNEL_COUNT 
Do 62 CHANNEL = i MAX_AD ag) 
a AD BLOCK E 2,CHANNEC) 7 PID ) Then '!If right PID, display info 
typee CHANNEL sTavis AD BLOCK(1,CHANNEL)+1), 
t-.¢ abt Oke HANNEL ) 2, 
e CHARNEL.. COUNT = CHANEY COUNT + 4 
n 


Continue 
Hah COUNT .eq. CHANNEL_COUNT ) Type 800, '<None>',PID,ERASE_LINE 


ntinu 
ae te 409. ey LINE, Ay COUNT, CHANNEL _COUNT,ERASE_SCREEN 
OLD_DISP = BISPLAY_FCAG 

ERASE Hite .fa i? 

Go to 20 


99 Call Exit 


! 
Format Statments 


100 Format(1X,2A1," L 
Channe Status P 
Buffers ‘/) 
200 Format(15,5x,A8,210,4112) 
300 Format(* *,4A1) 


400 Format(" *2A1/* Totals: ',12," Processes connected ',12,° Channels 
1 allocated'/' <Type an H for help>* éai$) 


ab 10 Status as of ' Al/ 
1D ic 


t 
Tics/Sample Sttes” Size 


c 
c 
c 
¢ ‘ 
c 
¢ 
¢ 
¢ 
c 
c 


=A AOaan 


— 
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Format(" '7A1) 


Format(' ‘4A1/ 
1° The Vol towing ypeurs are available:'// 
he vTl T any'/ 


: ied PFI red C Channel Display'/ 

= PF blue P Process Display’ / 

1, 8 grey ’ Here, Display'/ 

1° To chenge Stapler time, type. a digit 0-9 for the desired time'//) 
Format(A 

Format(" *,A6,11X,210,2A1) 

Format (15,5x,A8,2A1) 


End 
'LEnd of File) 
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